home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 132 / 132.d81 / b.rock 32 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  32 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 poke53281,.:poke53280,12:print"[147]"
  3. 20 gosub260
  4. 30 sys57812"psbx 32",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  5. 40 poke53272,29
  6. 50 b$="      [221][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][221]"
  7. 70 print"      [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  8. 80 fori=1to7:printb$:next
  9. 90 print"      [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  10. 100 poke214,9:print
  11. 120 printtab(12)"[212]he[208][213][218][218][204][197][208][193][199][197]"
  12. 140 printtab(10)"[154][193][159][204][207][193][196][211][212][193][210][154][197][216][195][204][213][211][201][214][197]"
  13. 170 sys57812"ssx 32",dv,0:poke780,0:poke781,16:poke782,205:sys65493
  14. 200 print"[144]load"chr$(34)"rock 32"chr$(34)","dv
  15. 210 print"run"
  16. 220 poke43,1:poke44,64:poke16384,0
  17. 230 poke631,13:poke632,13:poke633,13:poke198,3
  18. 240 new
  19. 250 :
  20. 260 poke214,15:print
  21. 270 print"  [151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  22. 280 print"  [152]                                    "
  23. 290 print"           [210][207][195][203] [193][206][196] [210][207][204][204] [199][210][193][205]         "
  24. 300 print"     [194]y [194]arbara [200]. [211]chulak (c) 1995   "
  25. 310 print"       [208]ublished on [204][207][193][196][211][212][193][210] #132     "
  26. 320 print"      [211]ubscriptions 1-800-594-3370    "
  27. 330 print"           [193][204][204] [210][201][199][200][212][211] [210][197][211][197][210][214][197][196]        "
  28. 340 print"                                      "
  29. 350 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  30. 360 return
  31. 10000 dv=peek(186):n$="b.rock 32":open15,dv,15,"s0:"+n$:close15:saven$,dv:end
  32.